/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / automagic.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 66 6f 72 20 61 75 | 74 6f 6d 61 67 69 63 20 |% for au|tomagic |
|00000010| 65 71 75 61 74 69 6f 6e | 20 6e 75 6d 62 65 72 69 |equation| numberi|
|00000020| 6e 67 0a 20 0a 5c 6e 65 | 77 63 6f 75 6e 74 5c 4c |ng. .\ne|wcount\L|
|00000030| 61 73 74 45 71 4e 75 6d | 0a 5c 4c 61 73 74 45 71 |astEqNum|.\LastEq|
|00000040| 4e 75 6d 3d 30 0a 5c 64 | 65 66 5c 42 75 69 6c 64 |Num=0.\d|ef\Build|
|00000050| 45 71 42 6f 78 23 31 7b | 5c 68 62 6f 78 7b 7b 5c |EqBox#1{|\hbox{{\|
|00000060| 72 6d 5c 74 68 65 5c 63 | 6f 75 6e 74 31 2d 2d 5c |rm\the\c|ount1--\|
|00000070| 74 68 65 23 31 7d 7d 7d | 0a 5c 64 65 66 5c 6e 65 |the#1}}}|.\def\ne|
|00000080| 78 74 65 71 6e 75 6d 7b | 7b 5c 63 6f 75 6e 74 39 |xteqnum{|{\count9|
|00000090| 3d 5c 4c 61 73 74 45 71 | 4e 75 6d 5c 61 64 76 61 |=\LastEq|Num\adva|
|000000a0| 6e 63 65 5c 63 6f 75 6e | 74 39 20 62 79 31 0a 20 |nce\coun|t9 by1. |
|000000b0| 20 20 20 5c 42 75 69 6c | 64 45 71 42 6f 78 7b 5c |   \Buil|dEqBox{\|
|000000c0| 63 6f 75 6e 74 39 7d 7d | 7d 0a 5c 64 65 66 5c 6c |count9}}|}.\def\l|
|000000d0| 61 73 74 65 71 6e 75 6d | 7b 5c 42 75 69 6c 64 45 |asteqnum|{\BuildE|
|000000e0| 71 42 6f 78 7b 5c 4c 61 | 73 74 45 71 4e 75 6d 7d |qBox{\La|stEqNum}|
|000000f0| 7d 0a 5c 64 65 66 5c 6e | 65 77 65 71 6e 75 6d 7b |}.\def\n|eweqnum{|
|00000100| 5c 67 6c 6f 62 61 6c 5c | 61 64 76 61 6e 63 65 5c |\global\|advance\|
|00000110| 4c 61 73 74 45 71 4e 75 | 6d 20 62 79 31 20 5c 6c |LastEqNu|m by1 \l|
|00000120| 61 73 74 65 71 6e 75 6d | 7d 0a 5c 64 65 66 5c 6e |asteqnum|}.\def\n|
|00000130| 61 6d 65 6c 61 73 74 65 | 71 23 31 7b 5c 78 64 65 |amelaste|q#1{\xde|
|00000140| 66 23 31 7b 5c 42 75 69 | 6c 64 45 71 42 6f 78 7b |f#1{\Bui|ldEqBox{|
|00000150| 5c 4c 61 73 74 45 71 4e | 75 6d 7d 7d 7d 0a 20 0a |\LastEqN|um}}}. .|
|00000160| 25 20 66 6f 72 20 61 75 | 74 6f 6d 61 67 69 63 20 |% for au|tomagic |
|00000170| 73 65 63 74 69 6f 6e 20 | 6e 75 6d 62 65 72 69 6e |section |numberin|
|00000180| 67 0a 20 0a 5c 6e 65 77 | 63 6f 75 6e 74 5c 73 65 |g. .\new|count\se|
|00000190| 63 74 69 6f 6e 64 65 70 | 74 68 0a 5c 6e 65 77 62 |ctiondep|th.\newb|
|000001a0| 6f 78 5c 73 65 63 74 6e | 75 6d 0a 5c 6e 65 77 69 |ox\sectn|um.\newi|
|000001b0| 66 5c 69 66 74 6f 63 0a | 5c 6c 65 74 5c 5a 3d 5c |f\iftoc.|\let\Z=\|
|000001c0| 72 65 6c 61 78 0a 5c 64 | 65 66 5c 53 50 7b 20 7d |relax.\d|ef\SP{ }|
|000001d0| 0a 20 0a 5c 64 65 66 5c | 73 65 63 74 41 7b 5c 4c |. .\def\|sectA{\L|
|000001e0| 61 73 74 45 71 4e 75 6d | 3d 30 5c 67 6f 6f 64 62 |astEqNum|=0\goodb|
|000001f0| 72 65 61 6b 7d 0a 5c 6c | 65 74 5c 73 65 63 74 42 |reak}.\l|et\sectB|
|00000200| 3d 5c 67 6f 6f 64 62 72 | 65 61 6b 0a 5c 6c 65 74 |=\goodbr|eak.\let|
|00000210| 5c 73 65 63 74 43 3d 5c | 67 6f 6f 64 62 72 65 61 |\sectC=\|goodbrea|
|00000220| 6b 0a 5c 6c 65 74 5c 73 | 65 63 74 44 3d 5c 67 6f |k.\let\s|ectD=\go|
|00000230| 6f 64 62 72 65 61 6b 0a | 5c 6c 65 74 5c 73 65 63 |odbreak.|\let\sec|
|00000240| 74 45 3d 5c 67 6f 6f 64 | 62 72 65 61 6b 0a 5c 6c |tE=\good|break.\l|
|00000250| 65 74 5c 73 65 63 74 46 | 3d 5c 67 6f 6f 64 62 72 |et\sectF|=\goodbr|
|00000260| 65 61 6b 0a 5c 6c 65 74 | 5c 73 65 63 74 47 3d 5c |eak.\let|\sectG=\|
|00000270| 67 6f 6f 64 62 72 65 61 | 6b 0a 5c 6c 65 74 5c 73 |goodbrea|k.\let\s|
|00000280| 65 63 74 48 3d 5c 67 6f | 6f 64 62 72 65 61 6b 0a |ectH=\go|odbreak.|
|00000290| 5c 6c 65 74 5c 73 65 63 | 74 49 3d 5c 67 6f 6f 64 |\let\sec|tI=\good|
|000002a0| 62 72 65 61 6b 0a 20 0a | 25 20 53 74 61 72 74 20 |break. .|% Start |
|000002b0| 61 20 6e 65 77 20 73 65 | 63 74 69 6f 6e 2e 20 20 |a new se|ction.  |
|000002c0| 46 69 72 73 74 20 61 72 | 67 75 6d 65 6e 74 20 69 |First ar|gument i|
|000002d0| 73 20 64 65 70 74 68 20 | 28 31 20 74 6f 20 39 20 |s depth |(1 to 9 |
|000002e0| 70 6c 65 61 73 65 21 29 | 2c 20 73 65 63 6f 6e 64 |please!)|, second|
|000002f0| 0a 25 20 69 73 20 63 61 | 70 74 69 6f 6e 2e 20 20 |.% is ca|ption.  |
|00000300| 5c 65 73 65 63 74 69 6f | 6e 20 69 73 20 61 20 73 |\esectio|n is a s|
|00000310| 65 63 74 69 6f 6e 20 74 | 68 61 74 20 68 61 73 20 |ection t|hat has |
|00000320| 6e 6f 74 68 69 6e 67 20 | 61 62 6f 76 65 20 69 74 |nothing |above it|
|00000330| 20 61 6e 64 0a 25 20 73 | 68 6f 75 6c 64 6e 27 74 | and.% s|houldn't|
|00000340| 20 67 65 74 20 61 20 5c | 67 6f 6f 64 62 72 65 61 | get a \|goodbrea|
|00000350| 6b 5c 62 69 67 73 6b 69 | 70 2e 0a 20 0a 5c 6f 75 |k\bigski|p.. .\ou|
|00000360| 74 65 72 5c 64 65 66 5c | 73 65 63 74 69 6f 6e 7b |ter\def\|section{|
|00000370| 5c 62 69 67 73 6b 69 70 | 5c 53 45 43 54 49 4f 4e |\bigskip|\SECTION|
|00000380| 7d 0a 5c 6f 75 74 65 72 | 5c 64 65 66 5c 65 73 65 |}.\outer|\def\ese|
|00000390| 63 74 69 6f 6e 7b 5c 6e | 6f 62 72 65 61 6b 5c 73 |ction{\n|obreak\s|
|000003a0| 6d 61 6c 6c 73 6b 69 70 | 5c 53 45 43 54 49 4f 4e |mallskip|\SECTION|
|000003b0| 7d 0a 5c 64 65 66 5c 53 | 45 43 54 42 41 44 7b 5c |}.\def\S|ECTBAD{\|
|000003c0| 65 72 72 6d 65 73 73 61 | 67 65 7b 53 65 63 74 69 |errmessa|ge{Secti|
|000003d0| 6f 6e 20 64 65 70 74 68 | 73 20 73 68 6f 75 6c 64 |on depth|s should|
|000003e0| 20 62 65 20 62 65 74 77 | 65 65 6e 20 31 20 61 6e | be betw|een 1 an|
|000003f0| 64 20 39 7d 7d 0a 5c 64 | 65 66 5c 53 45 43 54 49 |d 9}}.\d|ef\SECTI|
|00000400| 4f 4e 23 31 23 32 7b 25 | 0a 20 20 20 20 5c 73 65 |ON#1#2{%|.    \se|
|00000410| 63 74 69 6f 6e 64 65 70 | 74 68 3d 23 31 0a 20 20 |ctiondep|th=#1.  |
|00000420| 20 20 5c 69 66 63 61 73 | 65 5c 73 65 63 74 69 6f |  \ifcas|e\sectio|
|00000430| 6e 64 65 70 74 68 5c 53 | 65 63 74 42 61 64 5c 6f |ndepth\S|ectBad\o|
|00000440| 72 5c 73 65 63 74 41 5c | 6f 72 5c 73 65 63 74 42 |r\sectA\|or\sectB|
|00000450| 5c 6f 72 5c 73 65 63 74 | 43 5c 6f 72 0a 20 5c 73 |\or\sect|C\or. \s|
|00000460| 65 63 74 44 5c 6f 72 5c | 73 65 63 74 45 5c 6f 72 |ectD\or\|sectE\or|
|00000470| 5c 73 65 63 74 46 5c 6f | 72 5c 73 65 63 74 47 5c |\sectF\o|r\sectG\|
|00000480| 6f 72 5c 73 65 63 74 48 | 5c 6f 72 5c 73 65 63 74 |or\sectH|\or\sect|
|00000490| 49 5c 65 6c 73 65 0a 20 | 5c 53 45 43 54 42 41 44 |I\else. |\SECTBAD|
|000004a0| 5c 66 69 0a 20 20 20 20 | 5c 61 64 76 61 6e 63 65 |\fi.    |\advance|
|000004b0| 5c 63 6f 75 6e 74 5c 73 | 65 63 74 69 6f 6e 64 65 |\count\s|ectionde|
|000004c0| 70 74 68 20 62 79 31 0a | 20 20 20 20 5c 6c 6f 6f |pth by1.|    \loo|
|000004d0| 70 5c 61 64 76 61 6e 63 | 65 5c 73 65 63 74 69 6f |p\advanc|e\sectio|
|000004e0| 6e 64 65 70 74 68 20 62 | 79 31 20 25 20 7a 65 72 |ndepth b|y1 % zer|
|000004f0| 6f 20 61 6c 6c 20 6c 6f | 77 65 72 20 6c 65 76 65 |o all lo|wer leve|
|00000500| 6c 73 0a 20 5c 69 66 6e | 75 6d 5c 73 65 63 74 69 |ls. \ifn|um\secti|
|00000510| 6f 6e 64 65 70 74 68 3c | 31 30 5c 63 6f 75 6e 74 |ondepth<|10\count|
|00000520| 5c 73 65 63 74 69 6f 6e | 64 65 70 74 68 3d 30 5c |\section|depth=0\|
|00000530| 72 65 70 65 61 74 0a 20 | 20 20 20 5c 73 65 63 74 |repeat. |   \sect|
|00000540| 69 6f 6e 64 65 70 74 68 | 3d 31 0a 20 20 20 20 5c |iondepth|=1.    \|
|00000550| 73 65 74 62 6f 78 5c 73 | 65 63 74 6e 75 6d 3d 5c |setbox\s|ectnum=\|
|00000560| 68 62 6f 78 7b 5c 6e 75 | 6d 62 65 72 5c 63 6f 75 |hbox{\nu|mber\cou|
|00000570| 6e 74 31 7d 25 0a 20 20 | 20 20 5c 67 6c 6f 62 61 |nt1}%.  |  \globa|
|00000580| 6c 5c 64 65 66 5c 53 65 | 63 74 6e 75 6d 7b 5c 6e |l\def\Se|ctnum{\n|
|00000590| 75 6d 62 65 72 5c 63 6f | 75 6e 74 31 7d 25 0a 20 |umber\co|unt1}%. |
|000005a0| 20 20 20 5c 6c 6f 6f 70 | 5c 69 66 6e 75 6d 5c 73 |   \loop|\ifnum\s|
|000005b0| 65 63 74 69 6f 6e 64 65 | 70 74 68 3c 23 31 20 20 |ectionde|pth<#1  |
|000005c0| 25 20 47 6c 75 65 20 74 | 6f 67 65 74 68 65 72 20 |% Glue t|ogether |
|000005d0| 65 61 63 68 20 6c 65 76 | 65 6c 0a 20 5c 61 64 76 |each lev|el. \adv|
|000005e0| 61 6e 63 65 5c 73 65 63 | 74 69 6f 6e 64 65 70 74 |ance\sec|tiondept|
|000005f0| 68 20 62 79 31 0a 20 5c | 69 66 6e 75 6d 30 3d 5c |h by1. \|ifnum0=\|
|00000600| 63 6f 75 6e 74 5c 73 65 | 63 74 69 6f 6e 64 65 70 |count\se|ctiondep|
|00000610| 74 68 20 25 20 66 6f 72 | 63 65 20 74 6f 20 31 0a |th % for|ce to 1.|
|00000620| 20 20 20 20 20 5c 73 65 | 74 5c 63 6f 75 6e 74 5c |     \se|t\count\|
|00000630| 73 65 63 74 69 6f 6e 64 | 65 70 74 68 3d 31 0a 20 |sectiond|epth=1. |
|00000640| 5c 66 69 0a 20 5c 73 65 | 74 62 6f 78 5c 73 65 63 |\fi. \se|tbox\sec|
|00000650| 74 6e 75 6d 3d 5c 68 62 | 6f 78 0a 20 20 20 20 20 |tnum=\hb|ox.     |
|00000660| 7b 5c 75 6e 68 62 6f 78 | 5c 73 65 63 74 6e 75 6d |{\unhbox|\sectnum|
|00000670| 2e 5c 6e 75 6d 62 65 72 | 5c 63 6f 75 6e 74 5c 73 |.\number|\count\s|
|00000680| 65 63 74 69 6f 6e 64 65 | 70 74 68 7d 25 0a 20 5c |ectionde|pth}%. \|
|00000690| 67 6c 6f 62 61 6c 5c 65 | 64 65 66 5c 53 65 63 74 |global\e|def\Sect|
|000006a0| 6e 75 6d 7b 5c 53 65 63 | 74 6e 75 6d 2e 5c 6e 75 |num{\Sec|tnum.\nu|
|000006b0| 6d 62 65 72 5c 63 6f 75 | 6e 74 5c 73 65 63 74 69 |mber\cou|nt\secti|
|000006c0| 6f 6e 64 65 70 74 68 7d | 25 0a 20 20 20 20 5c 72 |ondepth}|%.    \r|
|000006d0| 65 70 65 61 74 0a 20 20 | 20 20 5c 6d 65 73 73 61 |epeat.  |  \messa|
|000006e0| 67 65 7b 5c 53 65 63 74 | 6e 75 6d 2e 20 20 23 32 |ge{\Sect|num.  #2|
|000006f0| 7d 25 0a 20 20 20 20 5c | 73 65 74 62 6f 78 30 3d |}%.    \|setbox0=|
|00000700| 5c 68 62 6f 78 7b 5c 62 | 66 5c 63 6f 70 79 5c 73 |\hbox{\b|f\copy\s|
|00000710| 65 63 74 6e 75 6d 2e 5c | 68 73 6b 69 70 31 65 6d |ectnum.\|hskip1em|
|00000720| 23 32 7d 25 0a 20 20 20 | 20 5c 64 65 66 5c 74 65 |#2}%.   | \def\te|
|00000730| 78 74 7b 5c 53 65 63 74 | 6e 75 6d 2e 5c 53 50 21 |xt{\Sect|num.\SP!|
|00000740| 23 32 7d 25 0a 20 20 20 | 20 5c 74 6f 63 65 6e 74 |#2}%.   | \tocent|
|00000750| 72 79 7b 23 31 7d 7b 5c | 74 65 78 74 7d 7b 5c 62 |ry{#1}{\|text}{\b|
|00000760| 6f 78 30 5c 68 66 69 6c | 7d 0a 20 20 20 20 5c 69 |ox0\hfil|}.    \i|
|00000770| 67 6e 6f 72 65 73 70 61 | 63 65 73 0a 7d 0a 20 0a |gnorespa|ces.}. .|
|00000780| 25 20 75 6e 6e 75 6d 62 | 65 72 65 64 20 73 65 63 |% unnumb|ered sec|
|00000790| 74 69 6f 6e 0a 5c 64 65 | 66 5c 75 6e 73 65 63 74 |tion.\de|f\unsect|
|000007a0| 69 6f 6e 23 31 7b 25 0a | 20 20 20 20 5c 6d 65 73 |ion#1{%.|    \mes|
|000007b0| 73 61 67 65 7b 23 31 7d | 25 0a 20 20 20 20 5c 73 |sage{#1}|%.    \s|
|000007c0| 65 74 62 6f 78 30 3d 5c | 68 62 6f 78 7b 5c 62 66 |etbox0=\|hbox{\bf|
|000007d0| 23 31 7d 25 0a 20 20 20 | 20 5c 64 65 66 5c 74 65 |#1}%.   | \def\te|
|000007e0| 78 74 7b 5c 53 50 21 23 | 31 7d 25 0a 20 20 20 20 |xt{\SP!#|1}%.    |
|000007f0| 5c 74 6f 63 65 6e 74 72 | 79 7b 30 7d 7b 5c 74 65 |\tocentr|y{0}{\te|
|00000800| 78 74 7d 7b 5c 62 6f 78 | 30 5c 68 66 69 6c 7d 25 |xt}{\box|0\hfil}%|
|00000810| 0a 20 20 20 20 5c 69 67 | 6e 6f 72 65 73 70 61 63 |.    \ig|norespac|
|00000820| 65 73 0a 7d 0a 20 0a 25 | 20 70 72 69 6e 74 20 61 |es.}. .%| print a|
|00000830| 72 67 20 33 20 61 73 20 | 61 20 6c 69 6e 65 2c 20 |rg 3 as |a line, |
|00000840| 70 75 74 20 61 72 67 20 | 32 20 69 6e 74 6f 20 74 |put arg |2 into t|
|00000850| 68 65 20 74 61 62 6c 65 | 20 6f 66 20 63 6f 6e 74 |he table| of cont|
|00000860| 65 6e 74 73 20 77 69 74 | 68 0a 25 20 61 20 22 6c |ents wit|h.% a "l|
|00000870| 65 76 65 6c 22 20 6f 66 | 20 61 72 67 20 31 0a 25 |evel" of| arg 1.%|
|00000880| 20 74 61 6b 65 73 20 63 | 61 72 65 20 6f 66 20 70 | takes c|are of p|
|00000890| 75 74 74 69 6e 67 20 62 | 6f 78 30 20 6f 75 74 20 |utting b|ox0 out |
|000008a0| 61 73 20 61 20 6c 69 6e | 65 2c 20 61 6e 64 20 70 |as a lin|e, and p|
|000008b0| 75 74 74 69 6e 67 20 69 | 74 20 69 6e 74 6f 20 74 |utting i|t into t|
|000008c0| 68 65 0a 25 20 74 61 62 | 6c 65 20 6f 66 20 63 6f |he.% tab|le of co|
|000008d0| 6e 74 65 6e 74 73 20 69 | 66 20 72 65 71 75 69 72 |ntents i|f requir|
|000008e0| 65 64 0a 5c 64 65 66 5c | 74 6f 63 65 6e 74 72 79 |ed.\def\|tocentry|
|000008f0| 23 31 23 32 23 33 7b 25 | 0a 20 20 20 20 5c 6c 69 |#1#2#3{%|.    \li|
|00000900| 6e 65 7b 23 33 7d 25 20 | 73 74 75 66 66 20 74 6f |ne{#3}% |stuff to|
|00000910| 20 61 70 70 65 61 72 20 | 69 6e 20 74 68 65 20 74 | appear |in the t|
|00000920| 65 78 74 0a 20 20 20 20 | 5c 6e 6f 62 72 65 61 6b |ext.    |\nobreak|
|00000930| 5c 73 6d 61 6c 6c 73 6b | 69 70 5c 6e 6f 62 72 65 |\smallsk|ip\nobre|
|00000940| 61 6b 20 25 20 6e 6f 77 | 20 69 6e 20 76 65 72 74 |ak % now| in vert|
|00000950| 20 6d 6f 64 65 0a 20 20 | 20 20 5c 69 66 74 6f 63 | mode.  |  \iftoc|
|00000960| 7b 5c 6c 65 74 5c 74 68 | 65 3d 30 20 25 20 6d 61 |{\let\th|e=0 % ma|
|00000970| 6b 65 20 69 74 20 75 6e | 65 78 70 61 6e 64 61 62 |ke it un|expandab|
|00000980| 6c 65 0a 20 5c 78 64 65 | 66 5c 69 78 6f 75 74 7b |le. \xde|f\ixout{|
|00000990| 5c 77 72 69 74 65 5c 69 | 6e 78 7b 5c 5a 23 31 5c |\write\i|nx{\Z#1\|
|000009a0| 53 50 21 23 32 21 5c 53 | 50 5c 74 68 65 5c 70 61 |SP!#2!\S|P\the\pa|
|000009b0| 67 65 6e 6f 2e 7d 7d 5c | 69 78 6f 75 74 0a 20 20 |geno.}}\|ixout.  |
|000009c0| 20 20 7d 5c 66 69 0a 7d | 0a 20 0a 5c 69 66 78 5c |  }\fi.}|. .\ifx\|
|000009d0| 74 69 74 6c 65 66 6f 6e | 74 5c 75 6e 64 65 66 69 |titlefon|t\undefi|
|000009e0| 6e 65 63 6f 6e 74 72 6f | 6c 73 65 71 75 65 6e 63 |necontro|lsequenc|
|000009f0| 65 0a 20 20 20 20 5c 66 | 6f 6e 74 5c 74 69 74 6c |e.    \f|ont\titl|
|00000a00| 65 66 6f 6e 74 3d 61 6d | 73 73 62 78 31 30 20 73 |efont=am|ssbx10 s|
|00000a10| 63 61 6c 65 64 5c 6d 61 | 67 73 74 65 70 32 0a 5c |caled\ma|gstep2.\|
|00000a20| 66 69 0a 5c 6e 65 77 63 | 6f 75 6e 74 5c 53 69 7a |fi.\newc|ount\Siz|
|00000a30| 0a 5c 6e 65 77 77 72 69 | 74 65 5c 69 6e 78 0a 5c |.\newwri|te\inx.\|
|00000a40| 64 65 66 5c 44 6f 43 6f | 6e 74 65 6e 74 73 7b 5c |def\DoCo|ntents{\|
|00000a50| 74 6f 63 74 72 75 65 5c | 69 6d 6d 65 64 69 61 74 |toctrue\|immediat|
|00000a60| 65 5c 6f 70 65 6e 6f 75 | 74 5c 69 6e 78 3d 5c 6a |e\openou|t\inx=\j|
|00000a70| 6f 62 6e 61 6d 65 2e 74 | 6f 63 7d 0a 5c 64 65 66 |obname.t|oc}.\def|
|00000a80| 5c 50 72 69 6e 74 54 4f | 43 7b 5c 76 66 69 6c 6c |\PrintTO|C{\vfill|
|00000a90| 5c 73 75 70 65 72 65 6a | 65 63 74 5c 69 6d 6d 65 |\superej|ect\imme|
|00000aa0| 64 69 61 74 65 5c 63 6c | 6f 73 65 6f 75 74 5c 69 |diate\cl|oseout\i|
|00000ab0| 6e 78 0a 20 20 20 20 5c | 64 65 66 5c 4c 65 61 64 |nx.    \|def\Lead|
|00000ac0| 46 69 6c 6c 7b 5c 6c 65 | 61 64 65 72 73 5c 68 62 |Fill{\le|aders\hb|
|00000ad0| 6f 78 20 74 6f 20 2e 37 | 35 65 6d 7b 5c 68 73 73 |ox to .7|5em{\hss|
|00000ae0| 2e 5c 68 73 73 7d 5c 68 | 66 69 6c 6c 7d 0a 20 20 |.\hss}\h|fill}.  |
|00000af0| 20 20 5c 64 65 66 5c 5a | 23 23 31 21 23 23 32 21 |  \def\Z|##1!##2!|
|00000b00| 23 23 33 21 23 23 34 2e | 7b 0a 20 5c 53 69 7a 3d |##3!##4.|{. \Siz=|
|00000b10| 23 23 31 5c 63 6f 75 6e | 74 31 3d 5c 53 69 7a 0a |##1\coun|t1=\Siz.|
|00000b20| 20 5c 61 64 76 61 6e 63 | 65 5c 53 69 7a 20 62 79 | \advanc|e\Siz by|
|00000b30| 20 31 20 5c 6d 75 6c 74 | 69 70 6c 79 5c 53 69 7a | 1 \mult|iply\Siz|
|00000b40| 20 62 79 20 5c 63 6f 75 | 6e 74 31 0a 20 5c 64 69 | by \cou|nt1. \di|
|00000b50| 76 69 64 65 5c 53 69 7a | 20 62 79 20 32 20 20 5c |vide\Siz| by 2  \|
|00000b60| 61 64 76 61 6e 63 65 5c | 53 69 7a 20 62 79 20 2d |advance\|Siz by -|
|00000b70| 31 0a 20 5c 64 69 6d 65 | 6e 30 3d 31 65 6d 5c 6d |1. \dime|n0=1em\m|
|00000b80| 75 6c 74 69 70 6c 79 5c | 64 69 6d 65 6e 30 20 62 |ultiply\|dimen0 b|
|00000b90| 79 20 5c 53 69 7a 0a 20 | 5c 53 69 7a 3d 23 23 31 |y \Siz. |\Siz=##1|
|00000ba0| 5c 61 64 76 61 6e 63 65 | 5c 53 69 7a 20 62 79 20 |\advance|\Siz by |
|00000bb0| 31 0a 20 5c 64 69 6d 65 | 6e 31 3d 31 65 6d 5c 6d |1. \dime|n1=1em\m|
|00000bc0| 75 6c 74 69 70 6c 79 5c | 64 69 6d 65 6e 31 20 62 |ultiply\|dimen1 b|
|00000bd0| 79 20 5c 53 69 7a 0a 20 | 5c 6c 69 6e 65 7b 5c 68 |y \Siz. |\line{\h|
|00000be0| 73 6b 69 70 5c 64 69 6d | 65 6e 30 5c 68 62 6f 78 |skip\dim|en0\hbox|
|00000bf0| 20 74 6f 5c 64 69 6d 65 | 6e 31 7b 23 23 32 5c 68 | to\dime|n1{##2\h|
|00000c00| 66 69 6c 7d 7b 23 23 33 | 7d 5c 4c 65 61 64 46 69 |fil}{##3|}\LeadFi|
|00000c10| 6c 6c 5c 68 62 6f 78 7b | 23 23 34 7d 7d 0a 20 20 |ll\hbox{|##4}}.  |
|00000c20| 20 20 7d 0a 20 20 20 20 | 5c 63 65 6e 74 65 72 6c |  }.    |\centerl|
|00000c30| 69 6e 65 7b 5c 74 69 74 | 6c 65 66 6f 6e 74 20 54 |ine{\tit|lefont T|
|00000c40| 61 62 6c 65 20 6f 66 20 | 43 6f 6e 74 65 6e 74 73 |able of |Contents|
|00000c50| 7d 5c 76 73 6b 69 70 20 | 2e 37 35 69 6e 0a 20 20 |}\vskip |.75in.  |
|00000c60| 20 20 5c 67 6c 6f 62 61 | 6c 5c 63 6f 75 6e 74 30 |  \globa|l\count0|
|00000c70| 3d 2d 31 0a 20 20 20 20 | 5c 69 6e 70 75 74 20 5c |=-1.    |\input \|
|00000c80| 6a 6f 62 6e 61 6d 65 2e | 74 6f 63 0a 7d 0a       |jobname.|toc.}.  |
+--------+-------------------------+-------------------------+--------+--------+